Imports System.Configuration
Public Class VBSettings
    Public Shared Sub agregarCadConeccion(ByVal cadena As String)
        Dim propCadconeccion As New SettingsProperty("Cadena_de_coneccion")
        propCadconeccion.DefaultValue = cadena
        propCadconeccion.PropertyType = cadena.GetType
        My.MySettings.Default.Properties.Add(propCadconeccion)

    End Sub
End Class
